Precision Software Applications Silver Collection 1

home *** CD-ROM | disk | FTP | other *** search

/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / demos / ensign.arj / ES5S.ZIP / ESPL5 < prev next >

Wrap

Text File | 1992-12-01 | 5KB | 403 lines

ESPL5 TOOLKIT :: TECH a - ANDREW'S PITCHFORK (use [= to mark points) SR 3 79 SR 4 76 R 77 R 80 L 1 1 14 SR 3 78 SR 4 75 R 76 R+ 77 X/ 2 U R- 75 X* 3 S 68 + R 79 R+ 80 X/ 2 U R- 78 X* 3 S 69 + L 1 1 15 SR 3 79 SR 4 76 R 68 R+ 76 R 69 R+ 79 L 1 1 10 SR 3 80 SR 4 77 R 68 R+ 77 R 69 R+ 80 L 1 1 10 SR 3 79 SR 4 76 R 76 R+ 77 X/ 2 R- 76 S- 4 R 79 R+ 80 X/ 2 R- 79 S- 3 R 4 R+ 68 R 3 R+ 69 L 1 1 12 SR 3 80 SR 4 77 R 76 R+ 77 X/ 2 R- 77 S- 4 R 79 R+ 80 X/ 2 R- 80 S- 3 R 4 R+ 68 R 3 R+ 69 L 1 1 12 FO JF :: TECH s -PRIME LINES SR 3 78 SR 4 75 R 76 R- 75 X* 2 R+ 76 R 79 R- 78 X* 2 R+ 79 L 1 1 14 -1.0 SR 3 79 SR 4 76 R 77 R 80 L 1 1 14 -B.C SR 3 78 SR 4 75 R 76 R+ 77 X/ 2 U R- 75 X* 3 + R 79 R+ 80 X/ 2 U R- 78 X* 3 + L 1 1 12 -.5 R 77 X* 7 R 76 X* 25 + X/ 32 S 4 R- 75 X* 2.5 R+ 4 R 79 X* 3 R+ 80 X/ 4 S 3 R- 78 X* 2.5 R+ 3 L 1 1 6 -.78 R 77 X* 3 R 76 X* 5 + X/ 8 S 4 R- 75 X* 2.75 R+ 4 R 80 X* 3 R 79 X* 5 + X/ 8 S 3 R- 78 X* 2.75 R+ 3 L 1 1 13 -.62 R 77 X* 5 R 76 X* 3 + X/ 8 S 4 R- 75 X* 2.75 R+ 4 R 80 X* 5 R 79 X* 3 + X/ 8 S 3 R- 78 X* 2.75 R+ 3 L 1 1 10 -.38 FO JF :: TECH f -FIBONACCI RETRACEMENT OBJECTIVE SR 3 79 -x1 = 1st index position SR 4 76 -y1 = 1st price R 77 -Get 2nd price R 80 -Get 2nd index L 1 1 14 -Line from 1st point to 2nd point R 77 R- 76 S 92 -Reg(92) = RANGE X* .05 S 93 -Reg(93) = 5% RANGE R 92 X* 1.618 R 77 E - -Forecast price objective R 80 R- 79 S 94 X* 1.618 R+ 80 -Forecast new index L 1 1 14 -Line from 2nd point to forecast point E R 93 S+ 4 -Add 5% of range to forecast - -Subtract 5% of range to forecast R 3 X+ 2.5 -Width of box is +/- 2.5 bars S- 3 2.5 LB 1 1 13 -Price objective box R 76 R+ 93 S 4 R 76 R- 93 R 80 R+ 94 S 3 S+ 3 2.5 X- 2.5 LB 1 1 13 R 77 R 92 X* .618 - U R- 93 S 4 D R+ 93 R 94 X* .618 R+ 80 S 3 S+ 3 2.5 X- 2.5 LB 1 1 13 FO JF :: TECH h -Print Chart bar data & TECH 1,2,3 arrays I3 X- 50 J- 1 2 1 X= 1 IS -Set INDEX to last-50 or 1 PD 1 -Output to printer PS DATE -Print header titles PS OPEN PS HIGH PS LOW PS CLOSE PS VOLUME PS OP-CLK PS TECH-1 PS TECH-2 PT TECH-3 S= 10 0 AD -Date PX ###### S+ 10 1 R 10 AT PX ######## R 10 J0 1 -5 9 PT -Carriage return S+ 1 1 -Point to next bar I3 J< 1 -12 1 PV 12 -Form feed paper PD 0 -Restore output to screen FO -Turn this technical off JF :: TECH V -EQUI-VOLUME IC I3 IS S= 60 0 X= 10 S- 1 1 AV S+ 60 D X- 1 J+ -5 X= 10 S/ 60 I3 IS S= 3 550 AL S 4 IR J+ 2 JF R 3 AV R/ 60 X* 8 - J+ 2 JF AH E SR 61 3 AN J- 4 D LF 1 0 14 J 3 D LF 1 0 12 SR 62 3 SR 63 4 AM S 4 R 61 S 3 X- 3 L 1 0 0 SR 3 62 SR 4 63 S- 1 1 S- 3 2 J -34 :: TECH r -BOND SUPPORT AND RESISTANCE (press [l first) BA 75 77 S 25 U + U Bm 75 77 - S 26 -H1 = MIDPOINT * 2 - LOW E BM 75 77 - S 27 -L1 = MIDPOINT * 2 - HIGH BM 75 77 Bm 75 77 - -RANGE = HIGH - LOW U R+ 25 S 28 -H2 = MIDPOINT + RANGE E R- 25 XC -Change sign S 29 -L2 = MIDPOINT - RANGE FI S 3 I3 S 4 L@ 1 25 10 -Plot midpoint, GREEN L@ 1 26 12 -Plot H1, RED L@ 1 27 12 -Plot L1, RED L@ 1 28 13 -Plot H2, PURPLE L@ 1 29 13 -Plot L2, PURPLE FO -Turn off TECH request JF -Exit single pass :: TECH l -LOAD YESTERDAYS HIGH,LOW,CLOSE I3 FOR BOND SUPPORT & RESISTANCE Tool IS FD -Get today's date AD -Get bar's date J< 3 -Jump when at yesterday's date S- 1 1 -Decrement index J -4 -Loop to test dates again AH S 75 AL S 76 AC S 77 JF -Exit single pass :: TECH = -Mark Chart points for other ESPL tools BL 75 77 -PV=(H+L+C)/3 HI=PV+(PV-L) LO=PV-(H-PV) FP -Get cursor PRICE S 77 BL 78 80 FI -Get cursor index S 80 FO PN 1 800 JF :: TECH d -TURN DEBUG MODE ON & DISPLAY STACK REGISTERS FB 1 0 3 -Breakpoint ON, don't pause, display Reg(3) FO -Function off JF :: TECH z -Write bars on chart to a file. I3 X= 1 BW JF :: TECH 1 -Move 1st column to 3rd column AX Az JE -END OF TOOLKIT